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News and Reviews 


by Mike Dunn, Co-Editor 

There is not a lot of news from the Atari Company yet, but our 
President, Kirk Stockwell is going to the San Francisco Computer 
Faire and should come back with lots of new info — see next month's 
ACE. However, several ex-Atari employees are coming out with 
"Super-Atari-like" computers. The first, mentioned several months 
ago, is, according to reviews, a super graphic IBM-PC compatible 
80186 computer from MindSet (617 N. Mary, Sunnyvale, CA 94086). 
Designed by a team of ex-Atari people headed by Roger Badertscher, 
the head of the Atari Computer division in the early years, it has 
several special super-graphic chips like the GTIA, etc. It is supposed 
to have graphics and animations superior to what you see on TV 
cartoons, all for under $3000 for a complete unit. It is so good many of 
the software houses now producing top Atari software such as 
Synapse and DataSoft have already produced some fantastic games 
and graphic utilities for it. Looks like a real winner and I will love to get 
my hands on one. 

Another ex-Atari designer, Jay Minor, who designed the Atari super 
chips now works for Amiga and has designed another fantasitic 
graphics/animation machine costing less than the IBMPCJr and be 
compatible with it. 

Another new program annouced for the Atari is Jane. This is an 
integrated package with a word processor, Calc and database 
programs and uses a mouse. It is supposed to be like a combination of 
the Apple Mac programs and Lotus 123. By Arktronics (113 S. 4th Ave., 
Ann Arbor, MI 48104) I am looking foward to seeing it. 

Closer to home, we have several new disks ready for the exchange 
library, including a "Best of ACE #8” for $15 including an Iron-on ACE 
patch. This disk includes the TinyText update from the Dec. issue, run 
time versions of the ACTION! programs which do not require the 
ACTION! cartridge (thanks to Clint Parker, the Author of ACTION!), 
KONG! for those who cannot read the listings, and some surprises. 
Another is ACTION! Disk #1 that has the Source listings of our 
programs and more, including several utilites by Clint Parker, the 
author of ACTION! ($15). There is also a new PILOT disk, and a new 
Utility disk is almost ready. 

For a real bargain and some of the nicest programs I have ever seen, 
the Jacksonville ACE group (1187 Dunbar CT., Orange Park, FL 32073) 
has sent us several of their disks. Costing only $8 each, they include 
Some of the nicest music/graphic programs I've seen/heard, and some 
great utilities, including MENUPLUS, which is on our BEST of ACE #8 
above. Disks 25 and 29 have some great programs, and their Music 
disk has to be heard. Please contact them for details. We charge more 
for our disks because the income is used to support our Newsletter 
(no advertising!) and Bulletin Board. Speaking of the Bulletin Board, 
there have been no new programs put on it recently because of lack of 
room, however, we have ordered two 8"drives which should give us 
plenty of room. 

Last months listings did not come out well. The ACTION! listing by 
Stan Ockers was mixed up (no line numbers to check!) and the KONG 
listing was smeared. Elsewhere in this newsletter are the corrections. 
Sorry! 


BUMPAS REVIEWS 


Scroll I ($20, Superware, 2028 Kingshouse Rd., Silver Spring, MD 20904 
301-236-4459) is a machine language program you can use as a 
subroutine in a program of your own design. Your programs may now 
easily include continuous scrolling in 8 directions. You may also 
control the speed of the scroll, and you can change the ANTIC 
chafacter mode. You can do all this without having to understand all 
the details of fine scrolling. 

The manual is not a tutorial, but use of this program can be very 
instructive for someone learning about scrolling. The user is referred 
to "De Re Atari"and to the October, 1983 issue of ANALOG magazine 
for more information on fine scrolling. The 5-page manual describes 
the simple steps needed to incorporate the routine into a program. 

The disk also contains a demo program with a map of the Western 
Pacific Ocean. The scrolling routine is supplied in the form of a string 
variable, but it is also supplied in DATA statement format in case you 
cannot use a long string variable. 

I've always been a bit intimidated by scrolling. This package makes 
me want to experiment with it in several programs. 


BRUCE LEE 

In BRUCE LEE (Datasoft, 19808 Nordhoff PI., Chatsworth, CA 91311, 
$30), Datasoft points the way to the next level of arcade games. As 
Bruce Lee, you must work your way through 20 rooms to find and 
destroy the evil wizard. Each room in the wizard's oriental castle has a 
series of hanging lanterns which, if knocked out singly or in a 
combination, will open a secret passage to the next room. 

Sound simple? If might be, except while you're doing this, you are 
being pursued by a large sumo wrestler called a Green Yamu, and a 
black Ninja. These, along with the Sword, Flaming Bushes, and energy 
traps create a myriad of hazards. 

You use the joystick to make Bruce Lee climb, run, leap, duck, chop 
and kick. Points are scored by entering new rooms, striking and 
knocking out the Ninja and the Yamu, and knocking down lanterns. 
Bruce Lee starts with 5 “falls” and earns an additional one for every 
40,000 points. 

The graphics are supurb, and the challenges quite varied. The 
manual implies that if you should win and destroy the wizard, the next 
sortie into the wizard's castle will be tougher. I've only been able to 
survive through the first 10 rooms, so | haven't been able to check this 
point out yet. 

Besides the basic 1 plaver vs. computer, Datasoft has provided two 
other options: 2 players taking turns vs. computer, and player vs. 
player. This last option is unique and will give this game a longer life 
than most arcade-style games. One player runs Bruce Lee while the 
other runs the Green Yamu. This, in effect, gives the computer as 
much intelligence as your opponent. All in all, I find BRUCE LEE to be 
a most challenging and satisfying program. 

— Nickolas Chrones 


GUITARADE 


The Guitarist’s Home Companion $29.95 by Richard Lindgren 
(Enabler Software, P.O.Box 58, Lamoni, IA 50140) 


To get away from the usual reviews about wargames, adventures, 
etc., | volunteered for this review. As an avid guitar player, I find this 
program especially interesting. 

The Guitarists Home Companion is a utility to help you improve 
your guitar playing. | must say the sound capabilities of the ATARI are 
used to the fullest. This program consists of four parts. They allow the 
user to display over 300 guitar chords, find the best chords for a song, 
transpose chords into different keys, and even help you tune your 
guitar. 

The chord encyclopedia holds over 300 guitar chords and can play 
the notes which make them up. If you want, you can dump the 
diagrams to a printer. 

The chord finder has the user input the known notes of a chord and 
the computer will find and play suitable notes to fill out the chord. You 
can also dump this to printer. 

The chord transposer can transpose a chord into any key. It comes 
complete with a chord diagram printed on the screen. Very helpful. 
Once again you can dump to a printer. 

I feel the guitar tuner is the best part of the program. I have used it 
to tune my bass guitar and a six-string guitar. A function allows the 
user to move up or down octaves or play notes not included in the 
main menu. I have never seen the sounds of the ATARI used so well. 
There was some distortion at very high and very low sounds, but this is 
negligible. 

There is another function to change the default mode from sharps 
to flats. 

Overall, I this is a very good job all around. The chord encyclopedia 
could be larger, around 1000 chords, but it is fine the way it is. When 
combined with a printer and a stereo hookup, this becomes a very 
powerful tool. 

Useful for all levels of guitar players. This program is compatible 
with ATARI 800, 800XL, 1200XL with a disk drive. The documentation 
is quite complete and easily understood. 

— Aaron Ness 


Boulder Dash 


(First Star Software, $3@) 

This is a very good arcade-style game modeled after the popular 
Dig-Dug game. The fact that it's produced by First Star, a company 
well known for it's hi-res graphic pages, should give you some idea of 
the well-done screens. 

In the game you move a constantly digging ant-like creature called 
Rockford through the earth, avoiding death by a falling boulder, or by 
any of the cave's other occupants. To score points, you must collect 
rainbow colored jewels which dot the different caves, while keeping 
an eye on the ever falling time limit. 

After all the jewels in a cave are collected, you advance to the next 
cave, which, of course, is more difficult. In the beginning caves, there 
are just boulders and jewels, but beyond these 'easy' levels are ones 
containing deadly fireflies, butterflies, or even the dreaded Amoeba. 
These seldom visited lower levels are extremely difficult because of 
combinations of these characters. 

There are options for one or two players, a pause feature, and an 
allowance for difficulty selection. The documentation is adequate, but 
could be better. 

The game has its funny parts too. For instance, if you pause for a 
bit, Rockford will begin tapping a foot, patiently waiting for a response 
from the player. 

This is a popular game around our house. Even my parents enjoy 
playing it, and that's pretty rare for them to enjoy an arcade style 
game. The best attribute of the game is challenge. This is one of the 
hardest games I've yet seen for the Atari. If you love a good challenge, 
this one's for you. 


— Tim Ebling 


ACE PICNIC 


The ACE picnic will be at Jasper Park, August 8, 1984. We're 
planning early, aren’t we? One of the events at this year’s picnic will 
be an auction, and 10% of the proceeds will be donated to the 
Willamette Institute of Science and Technology (known locally as 
"WISTEC"). The other 90% of the proceeds will go to the persons who 
put items up for auction. The items must be computer related, and 
software must be original retail copies with the complete original 
documentation. 

This will be an opportunity for people to exchange their software 
which they no longer use. New users can try out some commercial 
software for a low price. People wanting to upgrade hardware might 
find a buyer for old hardware. Those who cannot attend this year's 
picnic may still participate in the auction. Sellers must ship their 
items to Bumpas & Ridder, Attorneys at Law, 492 East 13th Ave., 
Eugene, OR 97401. Items which are not accompanied by enough 
money to reship to the seller and which remain unsold after the 
auction will not be returned until the seller arranges to pay for the 
shipping. 

Sellers must notify Jim Bumpas of the name and description of any 
items they wish to sell before 1:00 pm, Friday, June 22, 1984. The 
reason for this is the July newsletter will contain a notice announcing 
the list of items for sale at the auction. The list of auction items will be 
sent to anyone accompanying their request with a self-addressed and 
stamped envelope. This will give those out of town time to review the 
list to see if they wish to bid on any items. Sellers may specify a 
minimum bid they will accept. | advise you to keep the minimum as 
low as possible to stimulate the start of bidding. Once bidding on an 
item begins, the price rises dramatically. We won’t spend a lot of time 
on each item. If no one bids promptly, we'll pass the item and it'll 
probably remain unsold. 

Buyers from out of town will list the items for which they want to 
bid and the highest price they will bid. These lists will not be seen by 
any bidders at the auction until it's over. Auction officials will bid $1 
higher than the current bid on the selected items until the seller's limit 
is reached. Absentee bidders must accompany their lists with a check 
made out to ACE drawn in an amount equal to at least 25% of the 
maximum total of all bids they wish to make. Buyers whose checks do 
not clear before the day of the auction will not have their bids 
executed. If any balance is owing for purchased items, buyers must 
pay the amount due within 10 days after the auction, or else these 
items will be sold to the next bidder on the item. Buyers must pay for 
all shipping costs. Buyers attending the auction must pay cash for 
items purchased. 

Sellers will receive cash or check for 9096 of the price their items 
bring at auction, plus a receipt for the other 10% signed by an official 


of WISTEC. 


XBASIC 


(by George Schwenk (c) 1983 by SUPERware 2028 Kingshouse RD, 
Silver Spring MD 20904) 

Description: Atari BASIC enhancement 

Medium: Disk or cassette 

Requirements: disk drive or cassette recorder, Atari BASIC, 16K RAM 

(XBASIC uses less than 3K of RAM) 

Cost: $29.95 


XBASIC adds a library of thirty new functions which will help you 
accomplish otherwise time-consuming programming chores with 
relative ease. Each of these machine language subroutines is 
accessed by the USR command from Atari BASIC. 

The disk version of XBASIC contains an initialization file and six 
examples of short programs which use several of the functions. A 
thirty-page manual concisely describes each of the functions with 
examples of how to incorporate them in BASIC programs, but does 
not explain much about how it all works. However, SUPERware offers 
to provide the source code to those who might wish to modify or 
better understand what Mr. Schwenk has done. The cost for the 
source code is $5. Furthermore, permission is given to include 
XBASIC in commercial software, provided credit is given to 
SUPERware. 

An example of one of the functions in XBASIC is DLIST. By typing 
X = USR(DLIST), you will get a disk directory listing without calling 
DOS. 

If you have wished Atari BASIC had string arrays, you might 
appreciate XBASIC's four string functions. SDIM dimensions string 
arrays; PSTR puts a character string into a string array; GSTR gets a 
character string from an array; INSTR searches a string array for a 
substring. Also included are three similar array functions for integers. 

I/O functions are PCHRS, GCHRS, SSAVE and SLOAD. Use PCHRS 
to put bytes from RAM to a disk or cassette file; GCHRS gets them. 
back. These are great for saving or loading your own character sets. 
SSAVE saves the screen; SLOAD loads it from disk or cassette. 
SMOVE, a related function, changes the RAM area to be displayed on 
the screen, which is useful for page flipping. 

Memory functions are CLM (clear memory), FILL (fill memory), 
MOVE (move memory from one location to another; used for character 
sets or players, etc.) DPEEK (double peek a two-byte sequence) and 
DPOKE (a two-byte poke). 

Also included are two timing functions. STIMER (set timer) sets a 
countdown timer. DELAY waits for the amount of time you specify. 

Two sound functions, VDIM and XSOUND, are used to play a 
sequence of sounds during vertical blank interrupt, one sound each 
1/60th of a second. 

XBASIC has a special graphics call (SGR) which makes it easy to 
set up ANTIC modes 4 and E, with or without a four-line text screen. 
For example, "GR.0:DUM = USR(SGR,2)'sets up a full-screen four- 
color ANTIC mode 4 screen. 

Finally, XBASIC provides seven player/missile graphics functions, 
which enable, move, set the size and color of, and detect collisions of 
players and missiles. PMOVE moves the desired player to any X,y 
location and uses shape data from any part of RAM. 

There are two ways to use XBASIC. The first is to add it to an 
existing program. The procedure is to LIST "D: YOURPROG'" (or LIST 
“C:”), LOAD XBASIC, and then initialize XBASIC by typing GOSUB 
32500 in the immediate mode. [XBASIC uses line numbers 1-12 and 
32490-32502.] Next, ENTER your program back into memory. Finally, 
type X=USR(XSAVE):SAVE "D:YOURPROG" (or CSAVE) This 
procedure will save XBASIC along with your BASIC program. 

The second method is to use XBASIC when writing a new program. 
You must begin by loading and initializing XBASIC before typing in 
your program. When editing your XBASIC programs, it is necessary to 
begin each editing session by initializing XBASIC, and to use 
X = USR(XSAVE) before saving. I learned that the hard way, although I 
had read the directions prior to starting. My problem is I like to save 
my programs frequently, and | occasionally forgot to use XSAVE, or 
else forgot to initialize XBASIC at start-up. 

XBASIC uses page 6. | spent several hours trying to convert a 
program from a magazine to XBASIC, only to discover it would not 
operate correctly because it already had a non-relocatable machine 
language routine stored in page 6. Although 40 bytes (1561-1600) are 
used only by DLIST and are free for your use unless you use DLIST, 
you must face the reality of this limitation to XBASIC if you already 
use other routines designed for page 6. The object code for XBASIC is 
stored as part of the variable name table. 

| find it difficult to recommend XBASIC to beginners, but more 
experienced BASIC program developers may find these new functions 
facilitate faster programming, as well as faster program execution. Mr. 
Schwenk appears to be a conscientious programmer who offers 
others a way around re-inventing the wheel. And if you are one of 
those hackers who like re-inventing in the hopes of making a better 
wheel, perhaps you should take advantage of his gracious offer to 
provide the source code. 


—Deloy Graham 


TIDBITS 


Tips for Disk Users 

This month I am going to start in with some quips of special interest 
to those with disk drives. But before I do this, I want to address some 
comments to those of you who enjoyed the first Tidbits articles. Now 
that I have the attention of all three of you, I will continue. If you yearn 
to learn of more locations to PEEK and POKE, you should check out 
the following publications which I feel are very good: Mapping the 
Atari (by COMPUTE! Books), Master Memory Map (by Educational 
Software), and De Re Atari (available from the Atari Program Exchange 
— this is not really a memory map, but it will tell you alot about how to 
use some of Atari's fancier features). Even the back of the Atari BASIC 
reference manual contains a short list of locations you may wish to 
POKE around. 

First, a POKE of interest to all users. Location 65 controls whether 
or not you will hear the buzzing and beeping of disk and cassette in- 
put/output operations. POKE it with a 0 to turn the sounds off, a 1 to 
turn them back on again. This may be useful in a professional applica- 
tions program or if the noise irritates you, but personally, I like to be 
able to hear what is going on. 

If you ever want the files in your disk directory to be in a certain spot 
or order, this next tip is for you. First of all, place a freshly initialized 
disk in your drive and write the following dummy program: 

10 DIM D$(20):FOR A=1 TO 10 
20 D$ = ”D:JUNK”:D$(7)  STR$(A) 
30 SAVE D$:NEXT A 

Now to put a program wherever you want, simply delete the dummy 
program in the spot you wish to use, and SAVE out your chosen pro- 
gram. The reason this works is that DOS always uses the first empty 
spot it finds in the directory. You can change the values in the FOR- 
NEXT loop if you want more or less ‘slots’ reserved. 

| have some friends with Apple computers who are always giving 
me a hard time about my 800 and its disk operating system. They en- 
joy making claims about how easy it is for them and how hard it is for 
us to manipulate disk files from BASIC. Well, they don’t know about 
the XIO command. It allows Atari BASIC to lock, unlock, rename, and 
delete files as slick as the proverbial whistle. It’s so easy | won’t even 
explain it here — page 30 of the BASIC reference manual gives ex- 
amples, and, if those aren’t clear enough, just look over the TinyDOS 
listing from a couple of months ago. 

Have you ever wondered what is in your Atari’s memory? Some day 
if you have nothing to do and want to try something different, type the 
following immediate-mode line: 

FOR A = 600 TO 32000:?2CHR$(PEEK(A);:NEXT A 

Watch for words to appear. Most of what you see is of absolutely no 
meaning to you, but you may notice something interesting. Now, if we 
change the 600 to a 40960 and the 32000 to a 49152, we can see the in- 
side of the BASIC cartridge. If you are patient enough, you’re bound to 
come across some BASIC words. So what? Well, if you can PEEK 
memory, you should be able to POKE it, too, so we can change words, 
etc., to what we want. Unfortunately, the BASIC cartridge is ROM, 
which means we can POKE it all we want and it will just ignore us. But 
we can change RAM, and so we could change such things as DOS. 
Program 1 this month is just such a program. It is for those of you with 
OS/A + 2.10 who might like to change the commands. When run, this 
program will show you the existing command, and ask you for your 
command. Hitting only RETURN will result in the command not being 
changed, otherwise, enter in your three letter command and press 
RETURN. The program will POKE your changes into memory. If you 
wish to make the commands part of the system whenever you boot up, 
use the INIT command to write a new DOS file to your disk. 

— Dale Lutz 
Canada 


TECHNICALLY SPEAKING 


(reprinted from the Dec., 1983 issue of the Huntsville, Alabama Atari 
Users Group Newsletter) 


Last month | showed an example of a machine language routine 
called from BASIC via the USR function. That routine to porform a 
search was binary loaded on page 6 of memory. There are several 
different ways to incorporate these routines into a progam... 

The method | want to demonstrate involves converting the machine 
code into an ATASCII string. The BASIC program has to dimension a 
string variable and then define the variable. The machine language 
routine is then available with a USR call to the address of the string 
variable. Since the string is defined by the program, it is saved as part 
of the program and does not have to be poked into memory. Another 
advantage is you don’t have to limit yourself to a routine which must 
fit into a safe part of memory (i.e., page 6) because BASIC will keep 
track of the routine as a string, preserving it. Since we do not know 
where in memory the string will be at a given time, it is generally best 
to make the routine relocatable. The search routine | showed you last 
month is relocatable; all branches were relative branches without JMP 
and JSR instructions. Therefore the routine could be anywhere in RAM 
and work properly. If you must have your routine in a certain place in 
memory, you can have the routine relocate itself to that location. Of 
course you will have to move it to a location you have protected. 

Converting a machine language routine to an ATASCII string could 
be a lot of work. Fortunately | wrote a BASIC program to do all the 
work for you. Listing 1 is a program which will read the binary file (your 
object code for the routine) from the disk and generate the BASIC 
lines to dimension and define the string as ML$. You then input a 
filename and the program LISTs those lines to the disk. Since this 
program generates those lines beginning at line number 1, your BASIC 
program should start with a line number of 10 or greater depending on 
the length of the machine language string. Then you only have to load 
your BASIC program, ENTER the file with the lines for the string, and 
resave the program. 

Since BASIC will not allow you to define a string variable with a 
quotation mark character and since an EOL (return) does not have a 
printable screen character, line 1130 of Listing 1 checks for these 
codes and changes them to question marks. The program then 
generates additional lines for the BASIC program which defines those 
individual codes with the CHR$ function. | took the search routine 
from last month, ran this program on it, and merged the generated 
lines with last month's BASIC test program. Listing 2 is the result. 
Line number 1 dimensions ML$ and line 2 defines the string variable 
as the ATASCII representation of the machine code. If there had been 
a code in the routine which represented an ATASCII quotation mark, 
then a third line would have been generated reading: 

3 ML$(x,x) = CHR$(34) 

where x is the position of the “in the string. The only change 
necessary to this program is at line 80 where USR(1536,...) is changed 
to USR(ADR(MLS)....). If you typed in the assembly source code last 
month, give these two programs a try to see how easy this method is. 
If you use the program at Listing 1 to convert your own ML routine to 
ATASCII strings, keep in mind it will work only with object codes 
saved as normal Atari DOS simple binary files. This means you must 
save your code in one step using no append function. 

— C. Mueller 
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Shane Rolin: PROTECT YOUR PROGRAMS 


Programs and routines copyright 1983-84 Shane 
Rolin (P.A.C.E., 118 South Ridge Dr., Monroeville, 
PA 15146) 


This article will describe to the user several 
ways of protecting 'SAVEd' Atari Basic programs. 
The main problem in protecting Basic programs is 
with the 'SAVE' to disk or cassete command. The 
task of protecting a 'SAVEd' programs is difficult 
because of the many different ways a program can 
be stopped by the user or by errors. I will 
explain the following methods: 


s Protecting against the [BREAK] key. 
: Protecting against [SYSTEM RESET]. 
3: 'BLOUING' the Variable Name Table. 
: Erasing End of Statement pointers. 
: Other. 
: Routines to do the above. 


Protecting against the [BREAK] key 


The Break key has always presented problems for 
protection because when the user presses the 
[BREAK] key, program execution is stopped, and the 
program is then listable. Disabling takes two 
simple POKE values. The two values are: 


POKE 16,112 
POKE 53774,112 
POKE 16,112 is a POKEY interrupt. It's shadow is 

53774. POKE 112 into both of these locations in 
order to prevent the [BREAK] key from stopping 
your program. It should be noted that the 
GRAPHICS command will re-enable the [BREAK] key, 
so the user should POKE these values very 
frequently. A good idea is to use the Machine 
Language Subroutine that I have written. Put the 
subroutine at line 999 and in your program define 
the variable 'BREAK' to equal 999 and throught 
your program execute several 'GOSUB BREAK! 
commands. The subroutine will execute and then 
RETURN. 


Protecting against [SYSTEM RESET]. 


When the user presses the [SYSTEM RESET] key, a 
JMP $A04D is executed in the BASIC cartridge which 
is the Warmstart subroutine, and all previous 
'POKEd' values are returned to default. The two 
POKE values to disable the [SYSTEM RESET] key are: 


POKE 580,1 
or 
POKE 9,255 


Location 580 is the coldstart flag. If this 
location is 'POKEd' with a 1 (powerup in progress 
flag is set) , the computer will reboot whenever 
the [SYSTEM RESET] key is pressed. Any non-zero 
number between 1 and 255 will also do the same. 

Location 9 is the boot flag success indicator. 
When 'POKEd' with 255, the user program will 
lockup when [SYSTEM RESET] is pressed. 

Use the Machine Language routine that I have 
already described. It also contains these two POKE 
values. 


'Blouing' the Variable Name Table. 


Blouing the VNT is one method of preventing a 
program from being modified. This will allow the 
program to be listable, but all of the variable 
names will be 'messed' up. By executing the 
second routine that I have written, it will change 
all of the variable names to a RETURN, which will 
make the program almost inpossible to understand. 
Execute this routine by a GOTO 32700 command from 
direct mode. 


Erasing End of Statement Pointers. 


Erasing End of Statement Pointers is a good way 
to protect programs from being 'LOADed', 'LISTed', 
and modified. By executing the third subroutine I 
have written through a GOTO 32700 command, the 
current statement pointer will be set to 0 and 
will allow your program to 'RUN' normally even 
though it cannot be 'LISTed' or 'LOADed'. 


Other methods. 


Another method of program protection is by doing 
both Blowing the VNT and Erasing the ESP's. The 
fourth routine I have supplied does just that. 
Execute this routine by doing a GOTO 32700 from 
direct mode. This will almost make the program 
impossible to change through any other method 
except the program that I have written to reverse 
this process uhich will soon appear in the 
neusletter. | 


ROUTINES 


REM Listing 1: 

REM Disable the [BREAK] and 
REM [SYSTEM RESET] keys. 

REM 

REM Machine Language Subroutine 
REM by Shane Rolin 

REM 

REM TO USE: 

REM Simply put 'X=USR(1536)' 
9 REM in any program line. 

10 REM 

100 FOR A=0 TO 17:READ B 

110 POKE 1536+A,BsNEXT A 

120 DATA 104,169,112,133,16 
130 DATA 141,14,210,169,1,141 
135 DATA 68,2,169,255,133,9,96 
140 REM 

150 REM Subroutine in M/L as follous: 
160 REM PLA 

170 REM LDA #$70 

180 REM STA $10 

190 REM STA $D20E 

200 REM LDA #$01 

210 REM STA $0244 

220 REM LDA #$FF 

230 REM STA $09 

240 REM RTS 

250 REM 


Oo -31300 ^UnNK- CO 


REM Listing 2: 

REM Subroutine to change all 

REM variables to CHR$(155)- 

REM the RETURN character. The 

REM user may change the POKE 

REM value in line to any ATASCII 

REM character. Change the SAVE 

REM in line line 32710 to your 

REM oun filename or C: 

REM 

10 REM by Shane Rolin 

11 REM 

12 REM TO USE: 

13 REM Type GOTO 32700 in direct 

14 REM mode. 

15 REM 

16 REM 

32700 FOR VNT=PEEK(130)+PEEK(131 ) 
*256 TO PEEK(132)+PEEK(133)*256 

32705 POKE VNT,155:NEXT VNT 

32710 SAVE "D:filename" 


MI O) O1 + CI ^) — C9 


co 


0 REM Listing 3: 

1 REM Subroutine to erase the 

2 REM End of Statement Pointers. 
5 REM 

4 REM by Shane Rolin 

5 REM 


6 REM TO USE: 

" REM Type GOTO 32700 in direct 
8 REM mode. 

9 REM 

32700 POKE PEEK(138)+PEEK(139) 


*256+2,0:SAVE "D:filename":NEU 





D REM Listing 4: 

1 REM Subroutine to change all 

2 REM variables to CHR$(155)- 

3 REM the RETURN character. The 

4 REM user may change the POKE 

5 REM value in line to any ATASCII 

5 REM character. Change the SAVE 

7 REM in line line 32710 to your 

8 REM own filename or C: 

9 REM This program also erases 

10 REM the End of Statement 

11 REM Pointers. 

12 REM by Shane Rolin MG Jå 
13 REM oe a u NR MESS 
14 REM TO USE: EX NEED 
15 REM Type GOTO 32700 in direct iv 
18 REM mode. 

17 REM 

100 FOR A=0 TO 17:READ B TP 
110 POKE 1536+A,B:NEXT A SE dosi 
120 DATA 104,169,112,133,16 ACA a, , 
130 DATA 141,14,210,169,1,141 am 2 

135 DATA 68,2,169,255,133,9,96 

140 REM 

150 REM Subroutine in M/L as follous: 

160 REM PLA 

170 REM LDA #$70 

180 REM STA $10 

190 REM STA $D20E 

200 REM LDA #$01 

210 REM STA $0244 

220 REM LDA #$FF 

230 REM STA $09 

240 REM RTS 

250 REM 

999 X=USR(1536) 


32700 FOR VNT=PEEK(130)+PEEK(131 ) 


#256 TO PEEK(132)+PEEK(133)*256 


32705 POKE VNT,155:NEXT VNT 
32710 SAVE "D:filename":NEUW 
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David Fuller: GLOBAL CHANGE 





1 REM 

2 REM X GLOBAL FILEMANAGER CHANGES 39* 
3 REM X* by David Fuller et 
4 REM * reprinted from H.A.C.K. zd 
5 REM *(Helpful Atari Computer xx 


6 REM * Knewsletter, Feb 9, 1384 X 
z BER SIBOGGHOBUHUOHHGHUODOCAHICRHEGOOHE 
18 TRAP 1828:605HB 1188:PRINT CHR$(CI?5 
2;TTL$ 

28 REM %# GET FILE MAME 

38 PRINT : PRINT " Insert Filemanager D 
ata Disk" 

58 PRINT :PRINT " Enter name of file " 
i INPUT ANSRS 

68 FILES AWSRS: FILES CLENCFILES) +i)=", 
MT": FLNAMS—ANSRS : IDH-1 

78 REM 3X GET AND DISPLAY FIELDS 

88 PRINT CHR$(125); TTLS:POKE 752,8 

38 OPEN #1,4,8,FILES 

188 INPUT #1; NEMFLBS 

118 INPUT Hi:FLDNS 

128 FOR H-1 TO S:INPUT ML;A:FMINDSA:NE 
HT N:ASB 

138 CLOSE #i:LE-LEWCFILES) :FILES(QLE- 3, 
LE)", IDH": OPEN H1,4,8,FILES 

i48 FOR K-1 TO 5:INPØT H1;IDE1:NEXT H; 
INPUT H1;IDM2:INPHT Bi; IDHT 

158 PRINT :PRINT "File ":CHR$UI42 :FLNA 
MS :CHRS (34) ;" has ";NUMFLDS;" fields" 
168 PRINT :PRIMT , "Field names" 

178 PRINT LIN$:4-8:B-5:€-3 

i88 FOR N-1 TO NUMFLDSX12 STEP 12:8-6* 
i 

198 B-Bi1:IF A-ii THEN C-28;:B-6 

288 IF 4-18 THEN C-2 

218 POSITION C,B:PRINT 4;". 
H+11) 

228 NENT M:POSITION 2,16:PRINT LINS 
218 IF IDX-@ THEN PRINT " NO INDEX FOU 
HD ":6070 288:REM "CIMUERSED" 

240 PRINT "Indexed fields: "5 

258 IF IDM1»8 THEN PRINT IDH1; 

268 IF ID4228 THEN PRINT '",":IDHM2; 

278 IF IDKI>G THEN PRINT ",":;IDHJ; 

288 PRINT :PRINT :PRINT " Which field 
to search on ": INPUT SRCHFLD 

298 PRINT "Mich field ta change '";:IN 
PUT CHEFLD 

308 REM 396 DISPLAY INSTRUCTIONS 

118 PRINT CHR$(125) ; TTL$: CHGFLDS-FLDNS 
CCCHGFLD-12X12*1, CCHGFLD-12X12t12) 

i28 SRCHFLDS-CFLDNS CCSRCHFLD-1231241, €5 
RCHFLD-1)X12*12) 

i38 PRINT :PRINT 9 "ICHGFLDSJ" has ''; 
FNCCHGFLD) ;" characters." 

340 PRINT ' '":SRCHFLD$;" has ";FMCSRC 
HFLD);" Characters. ":PRINT 

358 PRINT LINS:PRINT " If entry is enc 
losed in Quotes" 


"IFLDNS (CN, 


368 PRINT " RELhIJWNi:";CHR$GA);" 
TEST" : CHRS (343 

178 ? " any record in which this field 
":2 "contains the letters between":? 
" the quotation marks will be changed. 
38 

i88 PRINT LINS:PRINT " If entry is enc 
lased in asterisks'":PRINT " E 2 AMP 

EG: TEST PRINT " any records in whi 

ch this field 

1938 PRINT | not contain the letters be 

tween":PRINT " asterisks will be chang 

SPRINT LINS 

488 REM %% GET CRITERIA 

485 CHG$-" ":CHGSEZ55)=CHGS:CNGS(2)=CH 

65 

418 POSITION 2,18:PRINT "Search for; “ 
: : INPUT CRITS 

428 POSITION 2,19:PRINT "Change ta: ''; 
INPUT AMSRS 

425 CHGS (1, FN CCHGFLD? 2 ZANSRS 

438 POSITION 2,28:PRINT “lise Query (Y/ 

M): =; INPUT ANSRS 

448 IF ANSRS(,1)-"Y" THEM QUERY-1:60T 

0 468 

458 OülUERY-B8 

468 FOKE 752,1:POKE 764,255:POSITION 5 
,Z2:PRINT " CORRECT (Dna >" 

478 PE-PEEK(764):IF PE-255 THEN 476 

488 IF PEZIS THEM POSITION 2,16: PRINT 

TSART": POKE 764,255:POKE 752,0:6070 

418 

438 

588 
518 
528 


IF PE-42 THEM RUN REM "E" 

IF PE-43 THEN 528:REM "y" 

GOTO 478 

REM 3% BEGIN SEARCH 

538 PRINT CHR$(125); TTLS :RWZz 1 

548 FILESCL, 1+LEM CFLNAMS) ) FLNAMS : FILE 

S CLENCFILES) t1) -" , DAT" 

558 CLOSE HL:OPEN H1,12,8,FILES 

568 E-i1:FO0R MIL TO NUMFLDS 

578 IF SRCHFLD-M THEN STSRCH-H:LNGTHSR 

CH-FBNCOD 

588 IF CHGFLD-N THEN STCHG-H:LNGTHCHE- 

FMC) 

598 MN-HtFNCN2 :NEXT H 

688 REM 39 GET FILE AND CHECK FOR MATCE 

H 

618 FOR Nzi TO LEM(CRITS) : KSCZCRITS (M, N 

} 

628 IF KH$="%" THEN STYPES="0)":POP :60 

TO 658 

618 IF HS-CHRS(CI4) THEN STYPES-"-'POP 
:6070 658 

648 NEXT N:STYPES-"-)":60T0 698 

658 LNTH-LENCCRITS2:IF CRITS(LNTH,LNTH 

) Ox" OR CRITSO NTH,LNTH) OCHRS (34) T 

HEN 678 

668 CRITS-CCRITS(C,LENCCRITS2) :60TO 688 


7 


678 CRITS-CRITS (2,LNTH-13 

688 LMTH=LEN(CRITS) 

698 MOTE #1,5EC,BYTE:INPHT HL;INPTS 
788 POSITION 2,2:PRINT "Record #: "RA 
718 POSITION 2,4:PRINT SRCHFLD5;'':''; 
728 POSITION 5,6:FLDi15-INPTS CSTSRCH,5T 
SRCH* CLNGTHSRCH-132 :PRINT FLD15 

738 POSITION 2,13:PRINT CHGFLDS;":''; 
748 POSITION 5,15:FLD2S-INPTS(CSTCHG, ST 
CHG* (LNGTHCHG-1)) : PRINT FLD2$ 

758 POSITION 7,19:PRINT "Changed ta: '' 


2 


768 
778 
788 
738 
868 


POSITION 5,28:PRINT '$Z33313X0" 

IF STYPES="<43" THEN 838 

IF STYPESS"I" THEM 888 

REM 33* CHECK FOR = OR > 

IF FLD1S(1,LEMH(CRIT$))ZCRITS THEN 


818 RN-RN*1:60T0 698 

828 REM ®® CHECK FOR © 

830 REM 

848 FOR M=1 TO LEMCFLD15)-LNTH 

850 IF FLPi1SCN,NFLNHTH-1)-CRITS THEN Rh 
-RNt1:60T0 6938 E 

868 NEXT M:GOTO 928 

878 REM XX CHECK FOR = 

888 FOR N-1 TO LEN(CFLDi$)-LNTH 

838 IF FLDiS(,NTLNTH-12-CRITO THEN 32 
8 

388 NEXT H:RN-RNt1:G0TO 698 

318 REM ** CHANGE FILE AMD PUT BACK 
328 IF QUERY-8 THEN 988 

938 POKE 764,255;POSITION 5,22:PRINT " 
Change this record (Y/HW) 7" 

948 PE-PEEK(7642:IF PE-255 THEN 348 
358 IF PE-43 THEM 988;REM "y" 

968 IF PE-35 THEM RN-RH+1:60T0 698:REM 
uy 

378 GOTO 348 

988 POSITION 5,21:PRINT CHES Ci,LNGTHCH 
G) : INPTS CSTCHG, STCHGt CLNGTHCHG-122 -CHG 
$ 

998 POINT Hl,SEC, BYTE :PRINT #1; INPTS 
1888 RN-RNi1:60T0 698 

1818 REM 3% CHECK FOR ERRORS 

18280 TRAP 1828;:ERR-PEEK(195):ERLIN-PEE 
K (186) *t256XPEEK (187) 

1838 IF ERR-136 THEN 1868 

1848 IF ERR-178 AND ERLIN-i3@ THEN IDH 
-8:60T0 158 

1858 POSITION 2,22:PRINT "Error ";ERR: 

" at line ";ERLIN:5TOP 

1868 CLOSE Hi:;POSITION 18,22:PRINT " [J 

"FILESCLE-3,LEIS", IDE": 
HIO 33,H1,8,8,FILES 

1878 IF (CHGFLD-IDM1) OR (CHGFLD-IDX2J 
OR (CHGFLD-IDM3) THEN DEL-1 

i888 IF DEL-1 THEN POSITION 18,22:PRIN 
T "IFILESILE-3,LE) 7", 
IOX" HIG 31,H1,8,8,FILE$ 


j ACTION! LISTING 
j ACE WENSLETTER, 3662 VINE MAPLE DR 
+ EUGENE, OR 97405 $12 YEAR 

j LIFE BY STAN OCKERS, APRIL 1984 


MODULE $ LIFE in Action! 

BYTE x,y, tot, consol 233279, hue 

BYTE ARRAY o1d (488) ,new(408) , near (7) 
CARD cnt,pos,pop,gen 


PROC Nborsi) ; Find # neighbors of sq. 
tot=Ø possyt28+x 
SetBlock(near,8,$) 
IF y>@ THEN 
IF x28 THEN 
IF oldipos-21)>Ø THEN 
totzz*] near i8) zoldipos-21) 
FI FI 
IF oldípos-28))8 THEN 
tat==+1 near (1)=old(pos-28) FI 
IF x419 THEN 
IF old(pos-19)>8 THEN 
totzze] near (2)20]d(pos-19) 
FI FI FI 
IF x<19 THEN 
IF old(pos+i)>@ THEN 
tot==+1 near (3)sold(posti) FI FI 
IF y919 THEN 
IF x«19 THEN 
IF old(pos+21)>@ THEN 
totze*] near (4) zold(pos*21) 
FI FI 
IF old(pos+2Ø) >Ø THEN 
tot==+1 near(S)soldí(pos*28) FI 
IF x28 THEN 
IF old(pos+19) >Ø THEN 
tot==+1 near (6) sold (pos*19) 
FI FI FI 
IF x>@ THEN 
IF old(pos-1)>Ø THEN 
tot==+1 near (7)=oldipos-1) FI FI 
RETURN 


PROC Init() 

CARD dl 

Graphicsi1) x=1Ø y=1Ø hue=i 
Setblock(old, 49,9) Setblock(new, 488,8) 
dl=Peek (568) dl==+256#Peek (561) 
Poke(di*25,78) Poke(dl+29,6) Poke(82,8) 
Poke(dli*38,6) Poke(454,9) Poke(537,7) 
Print ("11Fe") Poke(457,29) Poke(732,1) 
Print ("Written in Action!") Poke(656, 1) 
Poke(457,22) Print("generation") 

Poke (656,2) 

Poke(657,2) Print("popalation") 

RETURN 


Stan Ockers: LIFE 


PROC Dly(CARD wait) 
DO wait=2-1 UNTIL wait=@ OD 
RETURN 


PROC Cursor () 
BYTE stk, under 
Dly (1668) Position(x,y) PutD(é, 126) 
Diy (1888) Positionix,y) 
undersoldíys264x) 
IF under=Ø THEN PutD(6,32) 
ELSEIF undersi THEN PutDié,42) 
ELSEIF under=2 THEN PutDió, 18) 
ELSEIF under=3 THEN PutD(6,178) 
ELSEIF underz4 THEN PutD(é,138) FI 
stk=Stick(§) stkss!15 
IF stk&i THEN IF y>Ø THEN y==-1 FI FI 
IF stkk2 THEN IF y<19 THEN ysse1 FI FI 
IF stk&4 THEN IF x># THEN x==-1 FI FI 
IF stkk8 THEN IF x(19 THEN x==+1 FI FI 
IF 8Trig(9)28 THEN 
IF old(y#26+x)=@ THEN old(y#28¢x) hue 
ELSE old(y#28+x)=@ FI Poke(77,9) 
DO UNTIL Strig(8)=1 OD FI 
DO UNTIL STrig(@)=1 OD 
IF consol=5 THEN hue==+/ 
IF hue=5 THEN hue=1 FI FI 
IF consol(^6 THEN 
DO UNTIL (conselk7)=7 OD FI 
RETURN 


PROC Fillscr ( 

Position(Ø,8) popsé 

FOR cnt=$ TO 399 

DO IF old(cnt)=1 THEN PutD(6,42) 
ELSEIF oldicnt)=2 THEN PutD(6,18) 
ELSEIF oldicnt)=3 THEN PutD15,17Ø) 
ELSEIF oldicnt)=4 THEN PutD(6, 138) 
ELSE PutD(6,32) FI 
IF oldicnt)>Ø THEN pop==+1 FI OD 

Poke (656,1) Poke(657,35) PrintCigen) 

Poke(656,2) Poke(457,15) PrintCipop) 

Print(i* — *) 

RETURN 


PROC Nutgen() 
BYTE try, j 
FOR ya TO 19 
DO FOR x=6 TO 19 
DO Nbors() new(pos)=8 
IF old(pos)>@ THEN 
IF(tot=2) OR(totz3) THEN 
new (pos) »old (pos) 
FI FI 
IF old(pos)=@ THEN 
IF tot=3 THEN 
FOR cnt=Ø TO 7 


8 


DO trysnear (cnt) 
FOR jacnt+1 TO 7 
DO IF (near (j) stry) AND try 8 
THEN hueztry EXIT FI OD OD 
new (pos)=hue FI FI 
0D 0D 
RETURN 


PROC Maint) 
DO 
Init{) gensé 
DO Cursor() UNTIL consol=6 QD 
DO Nxtgen() Fillscri) 
FOR cnt= TO 399 
DO oldient)=newicnt) OD 
gens=+| 
IF consol=5 THEN EXIT FI OD OD 
RETURN 


GLOBAL (con't) 


i898 CLOSE HL:FILESCLE-3,LEI=",FMT":PO 
KE 764,255:6070 88 

i188 REM X* SET UP VARIABLES 

1118 PRINT CHR$(1252;:DIM TTLSCI8) :TTL 
$an GLOBAL CHANGE PROGRAM " 
1128 DIM ANSRS(255),FILES (172 ,FLDNS (24 
8) ,LINS (40) , CHGFLDS (12) , FNCTS (48) ,FLNÀ 
MS (17) , CRITS C38) , SRCHFLDS (12) 

1138 DIM CH63(255),INPTS$ (255) , H5 (1) , 5T 
YPES (22 ,FLD1$ (255) ,FLD2$ (255) , FN (20) 
1148 LINSz"—-—--------—-—-----7-—----——- 
re "PRINT LINS :A-@:B=5:€=2 
1158 RETURN 
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1 REM J398BDOOHOODOOOOHHOOOHODOUOC(COHCE 
2 REM HOTELLTESTER 

I REM xx 1662 VINE MAPLE DE 

4 REM EUGENE OR) 97405 eg 
5 REM METRES 
b REM PRS TT ET 
7 REM TREE UT 
8 REM STREET 
3 REH GET EET 
18 REM RR NENNE 
188 J-312:0-8:0-1:HS-Q:LEU-U:GOSHB 1280 
8 

198 5SC-Q:L-H 

195 H-3:U-4:ENZQ:DIG-Q:ROK-Q:CY-Q:E-0: 
UP-0:AH=34:AV=2:COLOR 78:PLOT AH,AU:L- 
ll: CN-1:1-8:0T-27-LEV 

288 ST-STICK(Q):IF ST-14 AMD U)4 THEN 
LOCATE H,V-U,ZZ:IF 22478 THEN COLOR J: 
PLOT H,V:U-U-H 

281 IF ST=13 AND U(23 AMD L(3 THEN LOC 
ATE H,U*U,ZZ:IF ZZ(78 THEN COLOR J:PLO 
T H,U:U-UtH 

202 IF ST=11 AND HQ THEM LOCATE H-U,V 
,ZZ:IF 22078 THEN COLOR J:PLOT H,U:H-H 
-1j 

28: IF ST=7 AMD H(Z8 THEN LOCATE H+U,Y 
,ZZ:IF 22478 THEN COLOR J:PLOT H,U:H-H 
+ 

204 55-STICK(U):IF PL-1 THEN 218 

205 IF 55-14 AND AV)2 THEM LOCATE AH, à 
V-U,K:IF K-J THEN COLOR J:PLOT AH, AV:A 
z$U-1:COLOR 78:PLOT AK, AV 

206 IF 55-13 AMD AV(23 THEN LOCATE AH, 
AVHI,K:IF KZJ THEM COLOR J:PLOT AH,AV: 
AV=AV+L COLOR 78:PLOT AH, AV 

207 IF 55:11 AND AHD1@ THEN LOCATE AN- 
L,AV,K:IF K=J THEM COLOR J:PLOT AH,AV: 
ñH-AH-1:COLOR 78:PLOT AH, AV 

288 IF 55-7 AMD AH(I8 THEM LOCATE Anti 
,AV,K:IF K-J THEM COLOR J:PLOT AH, AVIA 
SAH+LICOLOR 78:PLOT AH, AV 

289 IF K-79 THEN 988 

218 IF 77-80 THEN GOSUB 368 

-211 IF H-6 AND U-18 AND CY=@ THEN L=3 
212 IF (H-21 OR H-31) AND U-21 AND CY- 
Q THEM L-2:CY-Q:E-Q 

213 COLOR 79:PLOT H,U:IF EMU THEM GOS 
UB 358 

214 IF H-I AND U-4 AND UP=8 THEN 600 
228 IF I-0 AND CNDOT THEM SOUND U,21,8 
j,15:I-1:P-SCR4110:FO0R M=15 TO 8 STEP - 
1:500ND 1,21,8,H:NEXT W:S0UND U,0,8,8 
225 CN-CN41:IF I=@ THEM 280 

230 IF I-1 THEM POKE P,B:P-P-1:F-PEEK( 
DPOKE P,43:IF F(34 THEM 250 

235 SOUND U,77,8,15:POKE P,PEEK(P-48) : 
POKE P-48,PEEK(P-88) :POKE P-30,0 

248 FOR H-15 TO 8 STEP -2:50UND U,77,8 
MIMEKT MICM=1:I=Ø:P=SCR+110:S0UMD U,@ 











Sydney Brown: 


HJEFOR KZU TO I5:NEMT M:COLOR J:PLOT H 
,¥tU: GOTO 900 

688 COLOR I2:PLOT 3,4:COLOR 79:PLOT I, 
3 

685 SOUND U,0,0,0:FOR H-258 TO 38 STEP 
-18:FO0R HH-H TO W-25 STEP -1:SO0UND a, 
bil, 10,20:MEXT HH:NHERT H 

618 POSITION 2,1:? SMS; :POSITIOM 2,1:? 
= N IFOR H-238 TO 5 STEP -1:50UND Q, 
H,18,18:NENT H 

620 POSITION 2,1:? 5H$(18,12):POSITION 
2,2:7 © "SFOR H=30 TO 5 STEP -1:50 
UND Q,H,18,18:NENT H 

630 POSITION 2,1:? " A ";:FOR HH-15 TO 
8 STEP -1:F0R W-38 TO 5 STEP -1:50UND 
0,H,18,HM:MEHT W:NEXT HH 

650 GOSUB 958 

699 LEU-LEU*1:60T0 949 

888 FOR H-1 TO 35:POSITION 2,2:? SHS:3 

SOUND U,PEEK(537782,8,15:POSITION 2,2: 
?" H POSITION 2,3:? " — ";:NEHT H 

818 FOR HILS TO 8 STEP -0.5:S0UND U,PE 

EK(53778) ,8, H:NEXT H:G0T0 988 

899 GOTO 899 

388 SOUND U,Q,0,0:6054UB 320:605UB 328: 

GOSUB 958;K-8 

318 POSITION 12,0:? "6 H F 

Li] 

940 IF PEEK(53279) O 6 THEN POKE 709,16 

TtRNDCO)X152X16*18:G0TO0 948 

948 SC-Q:LEU-U 

949 POSITION 8,2:? " 
",;:605UB 32188:G0T0 195 

358 POSITION 22,0:? "LM ";DIG;" “FO 

R H-U TO DIG:FOR HH-15 TO Q STEP -2:50 

UND 0,7,18,M4M:NENT MMISCCSCHI:POSITION 
6,0 

955 ? SC:INEHT M:POSITIOM 22,0:? " R w"; 

ROK;" "FOR WU TO 77:NEHT W 

968 IF ROKDO THEM FOR H-H TO ROK:FOR H 

W-15 TO Q STEP -H:SOUND Q,21,10,HH:NEH 

T HH:SC-SCt2:POSITION 6,0:? SC:MEXT W 

965 POSITION 22,0:? " “;3SOUND Q 
,0,0,0:RETURN 

32888 DIM PR$(58),5H$ (13) : CB-PEEK (186) 

-4:POKE 186,CB:PR$(CU, 41) "hh ihka 

VISYTLEHRTHTUIZTIDIDDEBSM e. 

32818 GRAPHICS 0:Z2-0B%256:A=USR (ADR (PR 

$),Z,4):FOR W-2*128 TO 7Z+207:READ D:PO 

KE H,D:NEMT H:5H$-'"UHM +€€€€V(Z s 

12815 FOR H=Z+272 TO Z*511:READ D:POKE 
W,D:POKE M,D:NEMT H:POKE 752,U:FOR M= 

1536 TO 15851:READ DIPOKE W,D:NEXT H 

32828 POKE 756,CB:DL-PEEK (566) +2564PEE 

K(S61):POKE DL*Z,63:FOR M-6 TO 28:POKE 
BHEDL,4:HENT H:POKE DL+8,132 

32188 POKE 788,54:POSITION 0,0:? “BCDE 
Fê u 3" 
SPOKE 2-11,4:POKE 718,24:POKE 789,14 


9 


F I J 


"i9 sa 


DIAMOND MINE 


,0,0 
258 IF P(SCRt86 THEN POKE P,8:60TO 800 
288 OM L GOTO 298,488,588 
298 IF (ZZ-76 OR 22-77) AMD STOI5 THE 
M GOSUB 300 
295 LOCATE H,U-U,ZZ:IF 22-82 THEM GOS 
B 318 
299 ZZ=25S:G0T10 200 
300 FOR H=0 TO 15 STEP 2:50UMD 0,35,8, 
H:NEHT H:SOHND Q,0,0,0:DIG-DIGHI:RETUR 
å 
310 EN-U:RH-H:RU-U-U:LOCATE RH,RU-U, HR 
:IF HM=82 THEN COLOR J:PLOT RH,RV-U:CO 
LOR 82:PLOT RH,RU*UIGOTO 900 
319 POKE 77,Q:ROK=ROK+H: RETURN 
320 FOR H=38 TO Q STEP -U:SOUND 0,77,6 
,W/2:NEMT WiSOUND Q,Q,Q, Q: RETURN 
356 LOCATE RH,RU*U,XX:COLOR J:PLOT RH, 
RU:IRU-RUSU:COLOR 82:PLOT RH,RUIIF MH-7 
9 THEN 900 
355 IF RU(23 THEN LOCATE RH,RU+U,MM:IIF 
XH=J OR HM=79 THEN 358 
359 EN-Q:60TO 328 
368 COLOR J:PLOT H,V:LOCATE H-D,U,Z1:I 
F Z1-88 THEN H-H-i:GOTO I65 
362 LOCATE H*l,U,Z1:1F 21-88 THEM H=H+ 
U:GOTO 365 
363 LOCATE H,U-H,Z1:IF Zi=8@ THEN U-U- 
H:60T0 365 
364 V-U4l 
365 COLOR 79:PLOT H,U:FOR HM-U TO L:FO 
R ME3B TO Q STEP -U:SOUMD 0,7,10,M/2:M 
ENT H:SC-SCt188:POSITION 6,0:? SC:MEXT 
HM 
366 IF L-3 THEM UP=1 
369 RETURN | 
488 CY=CYt1:IF CY)4 THEM CY-2:R-INT(RN 
D(0)31)*21:L0CATE R,28,ZZ:E-Q:IF 22-8 
1 THEN E-U 
405 IF CY-2 AND E-H THEN FOR M=14 TO @ 
STEP -2:SOUND 0,7,16, H:NEXT H 
418 IF E-H THEM SP-CY*19:COLOR J:PLOT 
R,SP-U:LOCATE R,SP,ZZ:COLOR 81:PLOT R, 
SP 
416 IF CY-4 AND E-U THEN GOSUB 300 
458 IF 22-79 THEN 900 
468 IF (H(21 OR H)31) AND CY=4 THEM L= 
U:CY-0:E-Q 
499 22-285:60T0 299 
888 IF CY=Q THEN COLOR 204:PLOT 7,U:R- 
INT(RND(O)X6)*HU:COLOR J:PLOT R,9:CY-U 
S85 IF U-8 THEN COLOR 284:PLOT R,3:L-Ii 
tCOLOR 61:F0R HZU TO 6:PLOT H,11:NEXMT 
M:COLOR J:PLOT 7,18:CY-Q:G0TO 299 
518 CY=CY+U:IF CY)18 AND CY(17 THEN CO 
LOR J:PLOT 12-CY,11 
515 IF 17-CY(H AND U-18 THEM 550 
549 GOTO 299 
558 COLOR J:PLOT H,U:COLOR 79:PLOT H,U 


32110 POKE 712,128:POSITIOM 18,0:7 "SL 
at ^. USML";:POKE 512,08: POKE 
513,6:POKE 54286,192 
32128 POSITION 15,2:? "SLMLMLMT 
INI SLMLM"; POSITION 14,3:7 "SLALMLML 
MLT SLMLMLMLML"; :POSITIOM 6,0:? SC 


s 
# 


32139 FOR H-4 TO 22:PUSITIOM 0,M:? "LM 
LL POL ML ML PL ML PL ML ME ML ML H8 08 08 ML ML PL MEM 
s NERT M:COLOR 76:FOR H-Q TO 38 
32148 PLOT HWH,Z2i:NEMT M:POKE Z-U,44:5CR 
=PEEK (DL+4) *256XPEEK CDL * 5) 
32158 COLOR 284:PLOT 28,23:DRANTO 26,1 
9:DRAHTO J,19:DRAHTO J,22:COLOR J:FOR 
H-21 TO Ji:FOR Y-28 TO 23:PLOT X,Y 
32168 NEXT Y:WNENT H:PLOT 20,21:PLOT J, 
21:POSITION 21,28:? "00000000000"; :POS 
ITION 21,23:? "PHP H P '*5 
32178 POSITION 0,9:? "MANGN"; POSIT 
ION Q,10:? "H "3:POSITIOM @,11:7 
rococo" POSITION 0,12:? “EU 
as 
12188 GOSUB 12488:NR-49t7*L EU: G051B 32 
568 
323908 FOR HW-i1 TO 2 STEP -H;POSITIOMN H 
,U:? SHS:FOR MMEU TO 21:50UND Q,31*HM, 
18,6:NEMT HM:NENT H:POSITION 2,410:? " 
LE] 
32318 POSITION 2,2:? SHS;:FOR MEL TO 
21: SOUND 0,31 +54, 18,6: NEXT HEFIR N-48 
TO 168 STEP 18:FO0R HAC TO 21 
32328 SOUND Q,HtMM,18,6:NENT MMINENT H 
:SOHND 0,0,0,0:COLOR JIFOR WO TO 21:N 
EXT MIPLOT 3,3:POSITION 2,4:? "(Pj 
32399 RETURN 
12488 COLOR J:PLOT 3,Z20:DRAMTO I,14:DR 
ANTO 27,14:DRAMTO 27,12:DRAHTO 38,12:D 
RANTO 38,22:PLOT 17,4:DRAWTO 17,14 
12418 DRAWTO 26,14:DRAHTO 26,17:PLOT 3 
i 4:DRAHTO 34,4:DRANTO 324,12:PLOT 34,3 
32428 COLOR 88:PLOT 3,20:PLOT 17,4:PLO 
T 31,4:PLOT 26,17:PLOT 18,22:PLOT 0,18 
RETURN 
32509 COLOR BZ:FOR H-U TO NR 
12518 K=INTRND(0I39) : Y=IMTERND (03419 
)*4:LOCATE H,V,ZZ:IF 22076 AND 22077 
THEN 32518 
32515 IF X(9 AND Y(12 THEM 12518 
32528 PLOT X,Y:NENMT W:RETURN 
32699 RETURN 
32788 DATA 32,136,136,136,136,136,136, 
32,32,160,32,32,32,32,32,168 
12781 DATA 32,136,8,8,32,32,128, 168,32 
,136,8,32,8,8,136,32 
12782 DATA 136,136,136,136,168,8,8,8,1 
68,128,128,168,8,8,126,32 
12783 DATA 32,136,128, 168,136,136,136, 
32,168,8,8,32,32,128,128,428 
32784 DATA 32,136,136,32,136,136,136,3 


2,32,136,136,136,48,8,136,32 

32718 DATA 48,130,128,48,2,2,138, 48,8, 
@,8,34,32,32,34,8 

32711 DATA 0,8,8,34,34,34,34,8,8,8,68,3 
4,34,32,32,32 

32712 DATA 0,0,8,34,42,32,34,8,168,32, 
12,32,32,32,32,32 

32713 DATA 128,128,168,136,116,136,136 
:136,8,8,32,136,136,136,136,436 

32714 DATA &,8,40,136,136,136,136, 48,8 
,8,32,178,178,322,8,8 

12728 DATA 255,255,255,267,255,255,255 
:243,255,63,255,255,255,243,255,255 
32721 DATA 48,158,48,28,85,65,68,65,20 
,185,28,28,158,158,1128,1310 

32722 DATA 0,8,8,8,:2,168,168,32,178,1 
78,42,42,8,8,8,8 

32723 DATA 16,84,84,85,69,85,21,28,1,31 
:15,15,63,63,255,243 


` 32724 DATA 192,192,48,248,282,252,241, 


255,8,8,8,8,12,68,287,255 

32718 DATA 2,2,9,18,38,17,178,178,170, 
178,255,48,48,255,178,178 

32731 DATA 128,128,96,169,152,88,178,1 
78,85,187,27,27,5,5,1,1 

32732 DATA 85,185,188, 188,80, 88,54,64, 
8,18,42,166,149,166,42,18 

32733 DATA 1318,178,178,182,85,107,178, 
178,0,168,178,102,86,1082,179,168 

32734 DATA 8,8,128,178,178,128,8,8,0,4 
8,158,130,158,118,178,1316 

12748 DATA 72,173,18,218,9,12,141,23,2 
88,163,8,141,26,288,184,64 





i REM JHOBOGUBHOBHECOHOOHRHOBHEBOOOOHOORE 
2 REM * MACHINE LANGUAGE STRING MAKERE 
3 REM * by C. Mueller x 
å REM J00008000000000Q0000000H000Q0Q000B064 
5 REM 
6 REM 


1858 N-8:DIM P28) , CODE (20) , 4$ (15) 
i868 PRINT CHR$(125):PRIMT "ENTER FILE 
SPEC OF OBJECT CODE":PRIMT "DON'T FORG 
ET THE D:":INPUT AS:IF 4$-"" THEN 1868 
i878 OPEN 111,4,0,4$ 

1888 GET H1,H:GET Hi1,M:6ET Hi,L5B:GET 

Hi,HM5B 

1898 ADST-L5B+256%M5B 

1188 GET HL, LSB:GET HL,M5B:ADEND-LSB+Z2 

S6XMSB 

1118 LENML-ADEND-ADST*1:DIM BSCLENML) 

1128 FOR I-1 TO LEMML;GET Hi,H 

1138 IF #234 OR #2155 THEN N-N*1:P(NW2— 
T: CORE CN} =K: MZ 6 3 

1148 BSII,I)-CHRS(H):NENT I 

1158 CLOSE #i 

1168 LNIi:POSITION 2,12:PRINT LN;" DIM 
MLSCI';LENCBS) ;")'":6051B. 1298 

1178 A-1:B-98;LN-2 

1188 IF LEN(BS) Bt1 THEN BSLEM(BSJ 
1198 POSITION 2,12:PRINT "tttt"; :POKE 
765,1:PRINT LN;" MLS"; Aj", "Bj" z'; CH 

RS C34) BS th, B) ; CHRS (342 

1288 GOSUB 1238 

1218 A-Bti:IF LEN(BS$)2B THEN 
TO 1188 

i228 IF N-8 THEN 1258 

1230 FOR I-1 TO H 

1248 POSITION 2,12:PRINT "ft*1" ; SPOKE 
756,1:PRINT LN;" MLSC'POD ;", "PET; 
)z'";CHRSCCODECI21:G0SBUB 1298:NENT I 
1258 PRINT CHR$(C125):LIST 1,LN:PRINT : 

PRINT "THESE ARE THE LIMES TO BE ENTER 
ED AMD ADDED TO YOUR PROGRAM" 

1268 PRINT :PRINT “UNDER WHAT FILENAME 
DO YOU WANT IT TO BE LISTED TO DISK?" 
INPUT A$:IF AS=" THEN 1268 

1278 IF 451,12 O "D" THEN PRINT :PRINT 
"USE D: PLEASE":GOTO 1268 

1288 LIST 4$,1,LN:END 

1298 POKE 766,8:PRINT "CONT" 

i368 POSITION 2,18:PRINT ;:POKE 842,13 
1318 STOP 

1328 POKE 842,12:LN-LN*1:RETURN 


zBt98:60 
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1 DIM A$C1),CCS$ (282 

2 GRAPHICS 2:POKE 712,8:POKE 82,1:POKE 
83,38;POKE 752,1:5ETCOLOR 2,8,8:PO0SIT 
ION 4,4:? 16;"X* ColjoR w" 

3 ? "by:Ed 51lawson,P.0.Box 36,Warren,M 
ane" 1? " 84572 W Feb.,1984":FOR p= 

i TO 4888:NEXT D 

4 GRAPHICS B:POKE 752, 1:POKE 718,196:P 

OKE 789,8:POKE 712,96 

5?" This utility was designed ta ev 

alu- ate either or colored 

text" 

6 ? "on any of the 128 colors availabl 

e in Graphics B. It prints out the ca 

lør" 

7 ? "numbers from 1-15 along with the 

Lun- inance levels far each color. The 

Ge" 

8 ? "are the Same numbers used in the 

Set- color format." 

J? 

18? " Also printed on screen are the 
Poke values for location 718 í backar 

ound" 

li ? "register in Sr.8 3. This method 

may beused to change colors the same a 

s the" 

12 ? "Setrolor Statements. ‘Simply pok 

e the number of the color wanted into 

the" 

13 ? “location of the register desired 
" 

14 ? 

15?" Once running there 15 plenty o 

f texton screen to evaluate which comb 

ina-" 

16 ? "tions are the most pleasant to t 

he eye, and the most readable." 

17 ? 

ig?" 

" 

19 IF PEEK(7642 0255 THEN 21 

28 GOTO 19 

11 POKE 764,255:7 “mer? ugn 

E 2 " X * INSTRUCTIONS 

23 7 "j! 

E?" To program at any poi 

nt just press ANY KEY 


Press Any Key To Continue 


x x 


25 ? "ył" 

26 ? " To program at point 
of pause, press th 
e" 

p? 99 START KEY" 

28 ? "jj" 

29 ? " . T6 program, to End or 
Rerun, press the OPTION KEY 
n 

ig ? :? 

34?" 


32 IF PEEK(764) O 255 THEN 34 

33 GOTO 32 

14 POKE 764,255 

188 GRAPHICS 2 

128 SETCOLOR 2,8,8 

148 POSITION 1,3:? NG; “WHAT COLOR LETT 
ERS" 

168 POSITION 4,4:? 116;"ARE DESIRED" 
188 POSITION 3,5:? #6;"bLACK OR WHITE" 
288 INPUT A$ 

228 IF AS="B" THEN 320 

248 IF ASYN" THEN 340 

260 ? " PLEASE ANSHER ONLY B OR H" 
288 FOR Z-1 TO SØØ:NEKT Z 

i88 ? :6070 148 

378 GRAPHICS G:SETCOLOR 1,0,8:G070 368 
340 GRAPHICS @:SETCOLOR 1,9,8 

i680 SETCOLOR 2,8,8:5ETCOLOR 4,8,8 

388 FOR COLOR-8 TO 15 

488 READ CC$ 

418 IF CCS$-"KIM" THEN 645 

428 ? " "I COLOR; 
448 ? 

468 FOR X-i TO 18:HEXT H 

488 FOR LUM=8 TO 14 STEP 2 

485 IF PEEK(53279)-3 THEN 28888 
498 IF PEEK(764) 0255 THEN GOSUB 21888 
588 P-PEEK(C718) 
528 ? "LIUMINANCE 
SPP" 

548 SETCOLOR 7,COLOR, LUM 

568 FOR Y-1 TO 288:NENT Y 

$588 HERT LUM 

688 NEXT COLOR 

648 DATA GRAY,GOLD, GRANGE, RED-ORANGE ,P 
INK, PINK-PURPLE, PURPLE-BLUE, BLUE, LIGHT 
-BLUE , TURQUOISE , GREEN-BLHE 

641 DATA GREEN, YELLOM-GREEN, GRANGE-GRE 
EN, LIGHT ORANGE 

642 DATA KIM 

645 ? 

28888 GRAPHICS 8:POKE 752,1:POKE 718,1 
82:POKE 709,@:POKE 82,2:POKE 281,9 


"ccs 


"LUM; "IAS 718 ('' 


11 


28882 ? “K444 Use the or 
button to":? :? “highlight your choic 
€ below, then" 

28884 7 :7 "lj press the button." 
FOR METO TO 8:POKE 53279,ME:NEXT MEG 
05HB 28828;:5EL1-11 

20886 POSITION SEL,SEL:? "HAPENDI 

ROGR AME 

28888 BUTTON-PEEK(532793:IF BUTTON-7 T 
HEH 28888 

28818 GOSUB Z8828:1F CHOICE-6 THER 288 
14 

28812 SEL-SEL*2:IF 5EL>15 THEM SEL-11: 
&USUB 28828:60T0 20006 

28814 IF SEL-13 THEN &G05HB 288281P05IT 
ION 11,SEL:? "TT :G070 28 
888 

28816 IF SEL=15 THEM GOSUB 28828;:P051T1 

ION 11,5EL:? “RRM: 6010 7 
8888 

78818 GOTO 28888 

28828 POSITION 11,11:? “RERUN THIS PRO 
GRAM" :7 :? , "RETURN TO BASIC"? :? ,"R 
UN MENI PROGRAM"; RETURN 

28822 TRAP 28888:POKE 281,18:IF SEL-15 
THEM ? "R's? :? ,"I OADING MEND" RUM " 
D: MERU STRAP 32767 

28024 IF SEL-13 THEM GRAPHICS 6:7 :7 n 
BÅSIC":? "IS": :POKE 752,8: TRAP 32767:E 

ND 

28826 TRAP 32767:3RESTORE :GOTO 2 

28828 GOSUB 288214 

28838 CHOICE-BUTTON: BUTTON-PEEK (532792 
IF BUTTOM<>7 THEN 20038 

28832 GOSUB 28814:RETURN 

70834 FOR ME-8 TO 8:POKE 53279,HE: NEKT 
ME : RETURN 

21888 POKE 757,255 

21828 IF PEEK(53273)-6 THEN POKE 767,8 
:POKE 764,255 : RETURN 

21848 GOTO 721828 

31806 REM THIS UTILITY WRITTEN BY ED 5 
LAWSON, FINISHED 11/12/81.CHANGES COLOR 
5 AND LUMINANCE LEVELS TO EVALUATE H 
31393 END 

12888 GRAPHICS 8:POKE 82,1:POKE 83,38: 
POKE 718,196:POKE 7892,8:POKE 712,96:? 
dn. M READY WHEN YOU ARE i": REM H 





Graphics by PrintWiz 
(Allen Macroware, POB 
2205, Redondo Beh, CA 
90278, $29) 


REPE FRERE EEE EEG 

REM 33 POLYCOPY UTILITY xx 

REM 3XX FROM JACKSONVILLE ACE ** 

REM HE DISK H 29 ee 

REM HH 581 CRUSIER LANE RE 

REM XX ATLANTIC BEACH, FL 32233 XX 

REM HEGE EE AEE EEE 
ië GOTO 375 

15 GRAPHICS K8:? "POLYCOPY - ATARI ver 
Sion 2.8" 

28 ? "(Space for ";INT(BUFF/125);" sec 
tors)":? :IP--K1 

25 GO5UB 258:IF IP=DSM THEN 48 

i8 IF IP(DSN THEN GOSUB I55:1F Z-YES T 
HEN 25 

i5 IF IP(K1 THEN 235 

48 MAH-IP-K1:7 "Type 'Y' if o.k. "1:60 
SUB 335:? ;IF ZO YES THEN 235 

45 IP-KB8:0P-K8:5PLIT-HI:APMD-HI:60TO 5 
5 

58 ? :6051B 325 

55 ADDRIADR CYS) : ROOM-BUFF 

68 IF IP}MAX THEM IP-IP-K1:GO0SUB 145:6 
070 746 

65 YIIP!GOSUB 218:TRÀP 88:0PEM HK1,K4, 
K8,D5N5:TRAP TOFF 

78 IF SPLITOIP THEM > "Loading ":D5N5 
z GOTO 188 

75 TRAP 88:POINT HK1,5EC,BYTE: TRAP TOF 
F:APNDIIP:?7 "Contin'g ":;D5N$;:GOTO 188 
88 TRAP TOFF:ZIPEEK(L95) :CLOSE UKL:IIF 
Z(2178 THEN 118 

85 7 1:7? BONS;" not found,":? "..do you 
want to try another disk?''; 

98 GOSUB 358:? :IF Z-YES THEM ? "Inser 
t new disk": :60510B 3I8:60T0 65 

35 RIOP,K82-K8: IP-IP*K1:G60TO0 68 

188 KEIP, KØ)I-ADDR 

185 SIZE-USRLCCIO,K1,7,0DDR,ROOM) : Z-PEE 
K(G51) : IF Z(128 OR Z-136 THEN 115 

118 CLOSE HK1:? :GOSUB 378:60TO 95 

115 ? " sizer"; SIZE; :KCOIP,K12-5IZE:IF 
22136 THEM 125 

128 ? “Z NOTE HK1,SEC,BYTE: SPLIT-IP 

i25 ? :€LQSE HK1 

138 ADDR-ADDRtSIZE:ROGOM-RQUM-SIZE:IF R 

DOM>KØ THEN IP-IP*K1:GOTO 68 

135 GOSUB 145:IF SPLITOOIP THEN IP=IP+ 

Ki:IF IPHAN THEN 68 

148 GOTO 58 

i45 IF ROOGM-BUFF THEN RETURN 

158 ? ;? "Insert 'to' disk"; :G05UB 338 

155 ADDR-HCOP,K82 : SIZE-XCOP,K13 : IF ABD 

R-K8 THEN 228 

168 Y-üP:GOSUB 238:27-8:IF APND-OP THEN 
ZIZ+K1 

165 TRAP 185:0PEM HK2,Z,K8,DSNHS:TRñP T 

OFF :IF APNDIOP THEN ? "Append'g ";:G0T 

ü 175 


Co 0! A G M) Pe “D 


178 ? "Writing ''; 

175 ? DSH$;" size-';SIZE 

188 Z-HSRCCIO,K2,11,ADDR, SIZE) 

185 Z-PEEK(867) 

198 TRAP 198:CLOSE HKZ:TRAP TOFF:IF Z< 

128 THEN 228 

195 IF 240162 THEN GOSUB 378:60TO0 228 

288 ? "Disk full, try another? 

BIZUPPU:605HB 3315:IF ZO YES THEN 235 

285 TRAP 218:X4IO I3,HK2,K8,K8,D5HNÀ$ 

218 TRAP TOFF:IF APNDODOP THEN 7 “Inse 

rt new disk" ";:605UB 328:60T0 155 

215 IP-OP:SPLIT-HI:APND-HI:POP :60TO0 5 

8 

228 IF OPCIP THEM OP-OPtKi:GOTO 155 

225 RETURN 

238 DSN$-'"D:":DSNS CK) HS CYEK 12 *K 1, YXK 

12tK122:G0T0 768 

235 ? :? “TEs ANS " 

2480 GOSUB 355:IF Z-YES THEM 15 

245 CLR :END 

258 GOSUB 125:CLOSE HKI: OPEN HKI,6,K8, 
"pix, TF IP(K8 THEN IP-K8:N$cU'? wu 

C-copy, Q-9uit, any key to skip w 

255 INPUT HKI,¥S:IF LEN(YS)(17 THEN 32 

8 

268 D5N$-'"":FOR Z-K3 TO 13:1IF Z-11 THE 

N DSNSOGLENCDSNS) £K1)-", " 

265 IF YS(Z,Z2)=" " THEN 275 

278 DSNSILENCDSNHS) *K12-Y$ CZ, 2) 

275 NEXT Z:IF D3N$-"D05.5YS" THEN 255 

288 IF LEWCDSNS) (K12 THEM DSNHSILENCDSN 

$) *K1,K12)-" " 

285 SEC-K8:TRAP 298:5EC-UAL CYS (15,1721 

298 TRAP TOFF:? IP*K1;:POKE €01,5:7 DS 

NS: :POKE COL,28:7 "7": ;GO5SUB 348 

295 IF 72-67 THEN ? CHR$(S8);"C'":GOTO I 

19 

388 ? CHRS(ERASE2;:IF Z-81 THEN 3208 

3065 GOTO 255 

318 ASCLENC(EN9) *K 1) ZDSNS : IPCIP4K1:TF IP 

-ps5M THEN 328 

315 GOTO 255 

328 CLOSE HKJ:RETURN 

325 ? "Insert 'from' disk"; 

338 ? ", press any keyi"; 

335 GOSUB 148:? CHRSCERASE) ; :RETURE 

i48 GET HK4,Z:IF Z227 THEN POP :60T0 2 
35 

345 RETURN 

358 GOSUB 348:? : RETURN 

355 ? :7 "Any more files?';:60T0 335 
i68 Z-PEEKT764) :POKE 764,HI-Ki:IF 7-28 
THEN 235 

365 RETURN 

178 ? "[';Z2;"] I/0 error on ":DSNS:? " 
72 Skipping to next file!":? ;RETIRN 
375 REM HinesBbeginning 
188 GRAPHICS K8:POSITION 13,12:7 "GEE 


12 





wait! a 

i85 Kü-ü0:Kl1-1:K2-Ki+K1:K3-K2+K1:K4-K2+ 
K2:K12-K4XK1:HI-256; TOF F-40008 

398 YES-89;LET ERASE-156:COL-YES5-K4:0P 
EN HK4,K4,K8,''K;" 

395 DSN-16:DIM D5N$(162,45 (DSIXK122 , HC 
DSN-K1,K1) 

488 CIO-968:FO0R Y-K8 TO 42:READ Z:POKE 
CIO+Y,Z:MEXT Y:POKE 789,PEEKC718) 

485 DATA 184,184,104,18,18,18,108,178 
418 DATA 184,184,157,65,3,184,157,63 
415 DATA 1,184,157,68,3,184,157,72 

428 DATA 3,104,157,72,3,32,86,228 

425 DATA 189,72,3,133,212,189,73,3 

438 DATA 132,213, 96 

435 MAK=842:APND-35 

448 IP-Z75;0P-458:REM 

OM 

445 GOTO 460: REM line] E 

low 

458 ? CHR$(125):? :FOR Z-IP TO OP STEP 
5:7 Z:MERT Z:? "CONT":POSITION K8,K8: 

POKE MAH, 13 

455 STOP 

468 POKE MAN, K1Z:BUFFIFRE(KØ)-APND:DIM 
YS (BUFF? : BHIFFZBUFF-K3:G60T0 15 








DEVICE HANDLERS 


One of the few things the many books on the Atari don't say too 
much about are Device Handlers. This may lead you to believe these 
handlers are very hard to make. They aren't. 

The BASIC program with this article is a home brewed Memory 
Drive which works with BASIC or Assembler. Just enter the program, 
save it, run it, go to DOS and binary load the file "D:MEMORY.LOD'". 
Go to BASIC and do a ?USR(1536). Then load a BASIC program. To test 
this handler, do a LIST"M:". BASIC will dump your program into our 
handler. Now type NEW. Then Enter‘‘m:’’and the handler will load the 
program back into BASIC. The file you listed will survive a RESET, but 
the handler won't. The program will also survive DOS, but not a copy of 
the duplicate file. 

Now for making your own handler. First initialize the handler, look at 
lines 170 to 350. The table from 370 to 430 holds vectors pointing to 
different IO operations. Whenever you access any handler, CIO JSRs 
through these vectors to do each operation. For example, you do an 
OPEN command in BASIC. Then BASIC calls CIO, and CIO jumps 
through the OPEN vector in the vector table for the device. 

All OPEN does is prepare the device for IO. CLOSE ends all the 
operations to the device. READ gets one byte from the device, and 
returns it in the Accumulator. WRITE sends the value in the 
Accumulator to the device. I'm not really sure what STATUS and the 
JMP to initializing do. The Special vector is used for operations which 
don't use OPEN, CLOSE, READ or WRITE directly. For example, 
DELETE or RENAME for the disk handler. All errors are sent with the Y 
register. If the Y register is 1, the operation is successful. You can, of 
course, OPEN different devices inside your own handler routine. This 
could lead, for example, to a handler to OPEN the disk and print the 
directory. 

Now for IO operations: GET and PUT are easy, the variable you 
specify is sent directly to the device accessed. But what about INPUT 
and PRINT? Well, through trial and error I figured that all PRINT and 
INPUT are is a series of PUTs and GETs for each character. How do 
you tell the length of INPUT and PRINT? PRINTS finish when the entire 
string is sent, but INPUTs are completed when the handler sends an 
EOF. When your string is sent, just load Y register with 136, or the OS 
end of file. 

The source listing ! include with this article has enough comments 
to clear up most other questions. If have any more, just call (301) 
972-8324 or write me: Greg Menke, 22500 Old Hundred Road, 
Barnesville, MD 20838. 

— Greg Menke 


HACKER'S VIEW 


Atari 800 XL 

If you have been considering buying an XL series Atari but haven't 
because it is so new it might have some serious bug, you have nothing 
to worry about. The XL has BASIC built in. This version is FAST — 
almost half again as fast as normal BASIG. The BASIC is located in 
bank switched memory toggled on boot-up by pressing the OPTION 
key. 

ANTIC graphics modes 4 and 5 are added. The keyclick is piped out 
to the TV speaker. There is no internal speaker. The function keys are 
set flush in the case down the right side. The SYSTEM RESET does a 
chip reset, resetting the 6502 and other component chips. However, a 
program will still be in memory intact, and the system won't reboot. 
You can recover from system crashes by hitting SYSTEM RESET 
without losing your program! 

There is a parallel bus connector allowing direct connection to the 
6502. This will permit even more expandability than the regular Atari 
800. The 800XL has 64k, but only 37k is free in BASIC without DOS. 
Atari says the 16k (above 48k) can be accessed on!y through certain 
programs. 

Like the 1200, the new XLs won't work with some software. The fault 
isn’t with Atari, but with the people who made the software. All Atari 
software should work. The Translator disk for the 1200 (free from Atari, 
call: 800-538-8543 or 800-672-1404) will remedy many compatibility pro- 
blems. NOTE: The Translator won't work on the 600XL because it lacks 
enough memory. 

The manual supplied is the pits. If you don’t know BASIC, get a 
good book. The much vaunted HELP function is a useless waste of 
memory. All its tests can be duplicated in BASIC with a few lines. If 
you want to use the HELP key in your programs, PEEK to location 732 
to detect if HELP has been pressed. 

Because of the modified Operating System, some OS routines are 
in different locations. Here are a few of interest to Assembly language 
hackers: À 

$F2B0 - New location for $F6A4 

$F2FD - New location for $F6E2 

$F223 - Entry point for Self Test 

$F24A - New location for $F63E. 

The new XL series of Ataris are a good bet, well worth the purchase 
price. | give them a resounding “A” in performance and looks! If Atari 
releases a good technical manual and memory map, these computers 
will be hard to beat. 

— Greg Menke 








ELASH 


HEWLETT-PACKARD WILL DEMO 
THEIR NEW LOW-PRICED INK-JET 
PRINTER AT THE APR MEETINGI 


Direct from the factory in 


Corvallis, OR. 
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Life in Action! 


The game of Life is a good test of the speed of a language. In the 
game, one to four players arrange an initial ‘colony’ on a grid in some 
pattern. Each colony is then transformed into a new colony, the next 
generation, according to two simple rules: 

1) Each organism with 2 or 3 neighbors survives to the next 
generation. 

2) Each empty space with exactly 3 neighbors has a ‘birth’ of a new 
organism in the next generation. 

In this version, the grid is 20 X 20. Consider how much calculation 
must be done for each generation. Eight adjacent squares must be 
investigated for each of the 400 grid positions, a total of 3200 
locations. The whole grid is examined before any changes are made. 
Since this version runs at about 58 generations/minute, you can see 
how programs created with Action! run quite fast. 

Use the joystick to plant organisms for the initial population. 
Pressing the trigger will set or reset the location. ‘Select’ allows 
cycling between four available colors. Press ‘Start’ when you are ready 
to view the changing generations. Pressing ‘Select’ will clear the 
screen for a new initial population. 

You may at first have difficulty in creating colonies which can exist 
for a very long time. If you want proof that simple arrangements can 
lead to long lasting populations, try the PI arrangement. The PI is 
made of a square, three unit on a side, with the central bottom 
organism missing. Gliders are also interesting. On the same three unit 
Square, put in only the bottom, the middle right and central upper 
organisms. This glider will repeat itself after four generations and 
gradually slide off the lower right portion of the screen. 

| have modified the rules slightly because of the different colors. 
When rule 2 is obeyed, the birth organism appears only when there are 
at least two parents of the same color. !t then takes on the color of the 
parents. 

— Stan Ockers 


GLOBAL CHANGE 


Filemanager 800 Utility by David Fuller 
(reprinted from the 2/9/84 issue of HACK, Helpful Atari Computer 
Knewsletter from Warwick, RI) 


Filemanager 800 is one of the best all-round data management 
programs. It has many nice features like subfiles and changing 
formats. One thing I feit a need for and didn't have was a GLOBAL 
CHANGE FUNCTION. After thinking about it for some time, I decided 
to write one. 

If you look at the files on a Filemanager data disk, you'll see fou: 
files for each one you created. If your file is named "TEST", you'll see 
“TEST.DAT”, “TEST.IDX”, "TEST.FMT" and "TEST.CMP". “FMT” files 
contain the number, names and lengths of the fields you set up. 
"DAT" files contain the actual records you typed in. The "IDX" files 
contain the number of records entered, which fields are indexed, how 
long the indexes are, and the index itself. As a point of interest, if the 
program does not find an “IDX” file it automatically goes to the RE- 
INDEX FUNCTION. The "DAT" file is the only one you have to copy to 
keep a back-up. 

My program allows you to make the same change to as many 
records as you want without having to enter the information each time. 
Upon RUNning, the program will ask for the name of the file. Next it 
puts the list of the file's fields on the screen. You are asked which 
fields you want to use for search criteria and which field you want to 
change. These may be the same field. You simply enter the number of 
the field. You will also see which field or fields are indexed. If you 
change an indexed field, you will have to re-index the file. 

The next screen shows a few instructions for entering the search 
information. You'll next be asked to enter the search and change 
information. A "Y" to the "Query" prompt and the Atari will show you 
each record it proposes to change and give you a chance to keep any 
given record unchanged. The program gives you one last chance to 
change the criteria you've entered. You may change the search, 
change and query information if you choose. 

The Atari will then begin processing the records. As each record is 
read from the disk the search and change fields are displayed on the 
screen. If the search field matches the search criteria, the Atari will 
change the information in the second field and put the record back on 
the disk. If you responded "Y" for Query, the Atari will ask if it's ok to 
change each record. If you enter “N”, the current record won't be 
changed. "Y" will have to be pressed for each record you want tc 
change. The change will be displayed. The record number is shown to 
let you know how far along the process has gone. 

After all the records have been looked at the Atari will return to the 
list of fields. If the change field was one of the indexed fields. the 
index will be erased. 

Type the program and save it before running it. | also suggest yot. 
make a backup copy of the file you want to change (in case you type 
something wrong). 


DIAMONDS 


Low on fuel, you land your space craft on an astroid. The Snargs 
own a Galactic Diamond Mine here, and you need to steal all the 
diamonds to fuel your craft. As you move with joystick 1, you dig into 
the astroid. You may move under a rock if you are quick, but two rocks 
Stacked vertically will surely get you. Falling stalactites in the bottom 
cave and the draw bridge in the top one also provide hazards. 

A second player may control the mine guard near the tank. If you are 
quick enough, you will refuel your craft before the tank destroys your 
space craft. 

— Sydney Brown 


Colors 


by Ed Slawson, P.O.Box36, Warren, Maine 04572 * Feb.1984 

This utility was designed to evaluate either light or dark colored text 
on any of the 128 colors available in Graphics 0. It prints out the color 
numbers from 1-15 along with the Luminance levels for each color. 
These are the same numbers used in the Setcolor format. Also printed 
on screen are the Poke values for location 710 ( background register in 
Gr.0 ). This method may be used to change colors the same as the 
Setcolor Statements. Simply Poke the number of the color wanted into 
the location of the register desired. Once running there is plenty of 
text on screen to evaluate which combinations are the most pleasant 
to the eye,and the most readable. 


TYPING AIDS 


I typed in Stan Ocker's Action program, Rats' Revenge and I noticed 
a couple of errors. At the bottom of page 9, 1st column, the Update 
procedure seems to end without a "RETURN". At the bottom of the 2d 
column there appear 6 lines of code between two RETURNS with no 
procedure name. These 6 lines, and the RETURN which follows them 
are the remainder of the Update procedure. 

The 3d column on page 9 contains only two procedures: Openrt and 
Setbar. The line "PROC Rats()" appears incorrectly inside the Setbar 
procedure. Delete this line. 


KONG f | 

In Line 10050, the CI5$ contains the following 
characters ("C-" = Control characters): G-, G-, 
one-up-arrow | H Esc-Tab-Insert 2-down-arrows : $ d C-F 


^n 


The C25 contains the following characters:  C-. C-, 
j-up-arrow — 1-down-arrow C-1 Esc -Tab- Insert l ) 
i-right-arrow C-R G-5 0 C-, C-, | f 
Lis is: C-, G-, C-A C-A C-H 1-right-arrow inv-y G-Y 
1H inv-N C-B | 
L2$ is: C-, C-, C-X C-X C-H C-X 8 X inv-C-A C-H C-H 
C-Å 


Ris is: C-, C-, C-X C-X C-P inv-x l-inv-right arrow 
iny-C-X 1-left arrow C-R 5 8 

R2$ is: C-. C-, C-X C-X C-P C-X 1-up arrow C-Z G-Y 
G-P C-P C-À | 

In Lines 20100-20500, all the ( and | are inv-( and 
iny-| 


DIAMONDS 


In Line 32000, PRS(U,41) is: h h inv-C-E inv-O b 
inv-C-E inv-N h h inv-C-E inv-I inv-) inv-C-, inw-C-E 
inv-L inv-) inv-C-  iny-C-E inv-M inv-" inv-C-À inv-spc 
inv-C-, ins-1 inv-L inv-C-0 inv-N inv-H inv-P inv-y inf-f 
inv-M inv-f inv-0 inv-h inv-d inv-T inv-P inv-p C-. inv-C-, 

Line 32010 SH$ is: V W X spe 1-down-arrow 4-left 
arrows Y inv-0 Z spe f | 

Line 32170: All the letters being printed are 
inverse. | 


-- J.B. 
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PRINTER INTERFACES 


So, you are thinking about getting a printer for your ATARI. You have 
even convinced your wife/ husband! mother! father to let you buy one 
when you discover ATARI charges around $200 for the privilege of 
connecting it to their computer. Never fear, alternatives are here! In 
the three years we have each had an ATARI we have owned or used 
four different printer interfaces. We hope our experiences can help 
you become aware of some of the advantages and disadvantages of 
these magic boxes. 


Axiom AT-846 

This direct connect parallel printer interface is cheaper ($100) than 
the ATARI 850. It will support only parallel printers. It connects into 
the serial bus and has an expansion port so you can put it anywhere in 
your serial device chain. The cable to the printer is 19" long with a 
Centronics plug. The I/O cable is 29” long and the “unit” is 5.5"x 3.5"x 
1". Although not always needed, an external power supply is provided 
with a 70" line. If your printer provides 250 milliamps of 5 volt power on 
pin 18 of the Centronics plug you can switch the unit to run on this 
power and not use the power adapter. The Axiom provides the 
capability to make four other modifications to the unit. These allow 
the unit to support a wider range of printer types and user preferences. 
The Axiom does pass all eight bits to the printer so if your dot matrix 
printer will support dot graphics, the Axiom will too. We have run a 
wide variety of software using the Axiom and it has worked perfectly. 
The Axiom is well engineered and an excellent product. 


Ape Face 

We cannot say the same for the Ape Face. This interface has no 
expansion port so it must be the last peripheral in your I/O chain (like 
the 410 recorder). This is not convenient for us, and may not be for you. 
The Ape Face will support only a parallel printer and it also has a 
Centronics plug. The I/O cable is about 36" and the printer cable 19". It 
draws power from the ATARI which is OK, but the ATARI is not 
designed to support this extra load. You may run into a power supply 
problem and we think we have already seen one. A far more serious 
problem is the Ape Face is not 100% compatible with all the available 
software. We could not get Ape Face to function with B/GRAPH by 
Inhome Software, SUSPENDED by Infocom, and GRAPHIC MASTER 
by Datasoft. It did work with all our BASIC programs and passed all 
eight bits. The Ape Face sells for $59, but remember, you get what you 
pay for. 


MPP-1100 

An innovative product is the Microbits Peripheral Products 
MPP-1100 ($100). This unit plugs into joystick port #3, so it won't work 
on the XL computers. It comes with a chip you must install on your 
operating system board. Although this sounds terrifying to some, it is 
an easy and well documented procedure. The purpose of this chip is to 
allocate joystick port 43 to the printer device inside the ATARI. But 
MPP doesn't stop there. They improved one feature in the operating 
system and fixed a bug in another. The MPP-1100 allows LPRINTs in 
FOR-NEXT loops in the dot graphics mode. A 48" cable to the ATARI is 
provided along with a 12" cable (Centronics plug) to the printer. Our 
biggest complaint is the Centronics plug fails to lock onto the Epson 
connector. Although it is powered from the computer we never noticed 
any power supply problems. The MPP-1100 is a great product if you 
have joystick port 43 and don't use it. 

[Note from the Editor: While the MPP-1100 is still on the market, 
MPP now manufactures only the MPP-1150. It's also $100 and needs 
neither a joystick port nor a printer handler. It's a greatly improved 
product, and a printer buffer is easily added with a memory chip.] 

We have seen at least three articles in various publications showing 
how to make a "Home Brew Interface". It uses two joystick ports and 
works just fine, BUT you must load in a driver routine to make it work. 
This severely limits the uses for this kind of interface. Cable lengths 
are variable and costs are minimal. See ANALOG Magazine #16 for 
details. 

There are many interfaces on the market and we hope this article 
will help you select the right one for you. Be alert for interfaces which 
only pass 7 bits (no dot graphics) and interfaces which only work in 
specific modes (for example, only when the modem is on). 

—Lynn Clock 
Phil Fitzjarrell 


AVOID DOS! 


(reprinted from the Dec., 1983 issue of the Huntsville, Alabama Atari 
Users Group Newsletter) 


You can write DOS to a disk directly from BASIC with the direct 
mode command (i.e., no line numbers): OPEN 
81,8,0,"D:DOS.SYS :CLOSE #1. This will open the drive and write 
DOS.SYS to a formatted disk. DUP.SYS will not be written. You must 
CLOSE #1 or END, or the file will be written and left open and not 
show up on a later Directory search! If you keep getting an error on 
this attempt with no drive action, type END to close all IOCBs and do 
it again. 

The other DOS functions may also be directly accessed (or from 
within a program) with XIO commands: 

FORMAT: XIO 254,81,0,0,"D1:" 

UNLOCK: XIO 36,41,0,0, D1:filename.ext" 

LOCK: XIO 35,81,0,0,"D1:filename.ext" 

RENAME: XIO 32,41,0,0,"D1:filename.ext" 

DELETE: XIO 33,451,0,0,"D1:filename.ext" 
Can you find the others? 


DOUBLE YOUR PLEASURE 


(reprinted from the Dec., 1983 issue of the Huntsville, Alabama Atari 
Users Group Newsletter) 


Last week I decided to hook up a second monitor to my Atari — a 
green screen monitor — primarily for word processing. Then, without 
changing anything, I could still play games since the color monitor 
and monochrome monitor would be hooked in parallel, displaying the 
same thing at the same time. Well, | booted in my word processor and 
started typing out a letter. All of a sudden I couldn't believe my eyes! 
You see it turned out | made a mistake and hooked up the second 
monitor in series with my color monitor. Now I was looking at the text 
of my letter flowing from the green screen to the color monitor. Yes, I 
was looking at an 80 coiumn display! 

Needless to say | was totally awed with this fortuitous discovery. 
Well, I later put in the Pac-Man cartridge to play a bit. There | was on 
the color monitor; the green screen was dark. | exited the left-hand 
door to escape Inky, but I didn't come back in the right-hand door! No, 
the green screen to the left lit up a second Pac-Man maze, but with a 
twist. The joystick directions were reversed. When I pushed left I went 
right. Those clever people at Atari! | later did some experimenting and 
found by doing a slight circuit modification to put the vertical blank of 
the two out of phase and putting one monitor on top of the other, I 
could have 48 lines of text. Just think what | could do with four 
monitors. Come to think of it, just think of the possibilities of two 
printers. 

— C.M. 


FROM THE LIBRARY 


The next edition of the library list will be available about April 10. 
The January printing has been exhausted and is being revised to 
include the Best of ACE #8, Utility #3, Pilot #3, and Education #6. 

In the "For what it's worth department”, I will pass along this: Last 
week, | received an order from one of our members overseas. He 
mentioned that blank disks cost him about $5.00 each and asked me 
to use only one side of the disks for his order and leave the other 
blank. He said he appreciates the opportunity to save a couple of 
dollars by using both sides of the disk but in his case it was less 
expensive to buy than single sided. The choice is yours. 


In the mail bag: Last month, we published Dice Probability by Ken 
Waibel of Hawaii. John Kelley of Portland read it and it stirred up 
memories of some programs he had written. John went through his 
collection and polished up YATC, and CRAPS, and wrote 2 programs 
for his grandchildren and great-grandchildren calied Dice Arithmetic 
and Domino Arithmetic. We will be sharing these with you in the 
coming months and they will be on Education disk #6. Thanks John! 

— Ron Ness 
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TYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line” 
And it's easy to encode your copy with the few typesetting 
commands you need. 
COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


Scikimg & Design Services 


30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


Best of ACE books 


Volume 1 are bound issues of the ACE Newsletter from the first issue, 
Oct 80 to June of 1982 


Volume 2 covers July 1982 to June 1983 

Only $12 each ($2 extra for Airmail). Available only from: 

George Suetsugu 

45-602 Apuapu St 

Kanoehe, HI 96744 

SortFinder 1.2 

Composite index of Atari related articles from 5 popular computer 
periodicals from Apr ‘81 to June ‘83, including ACE. Only $6 for ACE 
member from: 

Jim Carr, Valley Soft 


2660 S.W. DeArmond 
Corvallis, OR 97333 


Årar 


OMPUTER 


ENTHUSIASTS : 
3662 Vine Maple Dc Eugene OR 97405 


FIRST 
CLASS 
MAIL. 








Atari Computer Enthusiasts 
A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to the Atari Company, a division 
of Warner Communication Company. We are a group interested in 
educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 


All our articles, reviews and programs come from you, our members. 


Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $12 a year for U.S., and $22 a year Overseas Air- 
mail and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 


FN er E pe a Kirt Stockwell 
4325 Sean , Eugene, OR 97402 / 503-689-5355 
VICE ui ARR n S S S S de SE Aye e MONTE NE Larry Gold 
1927 McLean Blvd., Eugene, Or 97405 / 503-686-1490 
ioci v AM PANAMA d dioi PM oie MA Bruce Ebling 
1501 River Loop #1, Eugene, OR 97404 / 503-688-6872 
KN ee ET eed Ron and Aaron Ness 
374 Blackfoot, Eugene, Or 97404 (503)689-7106. 
GEN TL EE Eat en Mike Dunn 
3662 Vine Maple Dr., Eugene, Or 97405 / 503-344-6193 
WOE ON EP S IS oe ado Yapu NUN qe oe eee Jim Bumpas 
4405 Dillard Rd., Eugene, Or 97405 / 503-484-9925 
E.R.A.C.E. (Education SIG Editor) 22... Fas ........... Ali Erickson 
295 Foxtail Dr., Eugene, Or 97405 / 503-687-1133 
E.R.A.C.E. Corresponding Secretary .............. Robert Browning 
90 W. Myoak, Eugene, OR 97404 / (503)689-1513 

50% $LOO 


Send 2øt stamps or coin (386 overseas) to the Ness’ for the new, up- 
dated ACE Library List —new in Feb 84! 


Bulletin Board 

(503) 343-4352 
On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided disk drives with an ATR 8000 interface, 2 double density 
Percom disk drives, an Epson MX80 printer, a Hayes SmartModem; 
running the ARMUDIC Bulletin Board software written by Frank L. Hu- 
band, 1206 N. Stafford St., Arlington, VA 22201. See the Nov ’82 issue 
for complete details. 


